library(ggplot2)

filelist = list.files(pattern = ".csv", full.names = T)
names(filelist) <- list.files("*.csv")
df <- map_dfr(filelist, ~read_csv(.), .id = "origin")
df %>% ggplot()+
  aes(mL, mAU, color = origin)+
  geom_line(size=0.8)+scale_color_hue(labels=c("DNase1L2", "DNase1L2-PEG"))+
  scale_x_continuous(breaks = c(0,5,10,15,20,25))+
  theme_minimal() +
  labs(
    title = "",
    x = "Volume (mL)",
    y = "Absorbance (mAU)"
  )+
  theme(axis.text.x = element_text(size = 16), axis.text.y = element_text(size = 16), axis.title.y = element_text(size=20), axis.title.x = element_text(size=20), title = element_text(size = 16), legend.title = element_blank(), legend.text = element_text(size=16),legend.position = c(0.3, 0.72), legend.key.height = unit(0.75, "cm"), plot.margin = margin(0.5, 0.5, 0.5, 0.5, "cm"))

ggsave("gel_filtration_chromatogram_1L2_PEG.pdf", width = 17, height = 12, units = "cm")